home *** CD-ROM | disk | FTP | other *** search
- object Form1: TForm1
- Left = 182
- Top = 128
- BorderStyle = bsSingle
- Caption = 'Process Viewer'
- ClientHeight = 423
- ClientWidth = 563
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Icon.Data = {<image000.ico>}
- Menu = MainMenu1
- Position = poScreenCenter
- OnShow = FormShow
- PixelsPerInch = 96
- TextHeight = 13
- object Label2: TLabel
- Left = 8
- Top = 36
- Width = 18
- Height = 13
- Caption = 'PID'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object Label3: TLabel
- Left = 382
- Top = 36
- Width = 98
- Height = 13
- Caption = 'Window Class Name'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object Label4: TLabel
- Left = 192
- Top = 36
- Width = 90
- Height = 13
- Caption = 'Caption of Window'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object TBevel
- Left = 320
- Top = 0
- Width = 5
- Height = 1
- end
- object Bevel1: TBevel
- Left = 0
- Top = 27
- Width = 563
- Height = 9
- Align = alTop
- Shape = bsTopLine
- end
- object GroupBox1: TGroupBox
- Left = 8
- Top = 349
- Width = 292
- Height = 40
- Caption = 'Pid Info Color'
- TabOrder = 0
- object RadioButton1: TRadioButton
- Left = 8
- Top = 16
- Width = 57
- Height = 17
- Caption = 'Re&d'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clRed
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 0
- OnClick = RadioButton1Click
- end
- object RadioButton2: TRadioButton
- Left = 80
- Top = 16
- Width = 57
- Height = 17
- Caption = '&Green'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clGreen
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 1
- OnClick = RadioButton1Click
- end
- object RadioButton3: TRadioButton
- Left = 152
- Top = 16
- Width = 49
- Height = 17
- Caption = '&Blue'
- Checked = True
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlue
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 2
- TabStop = True
- OnClick = RadioButton1Click
- end
- object RadioButton4: TRadioButton
- Left = 224
- Top = 16
- Width = 49
- Height = 17
- Caption = 'B&lack'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 3
- OnClick = RadioButton1Click
- end
- end
- object Panel1: TPanel
- Left = 0
- Top = 0
- Width = 563
- Height = 27
- Align = alTop
- TabOrder = 1
- object SpeedButton3: TSpeedButton
- Left = 69
- Top = 1
- Width = 25
- Height = 25
- Hint = 'Clear PID Info Viewer'
- Enabled = False
- Glyph.Data = {
- 66010000424D6601000000000000760000002800000014000000140000000100
- 040000000000F000000000000000000000000000000000000000000000000000
- 80000080000000808000800000008000800080800000C0C0C000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
- 7777777700000000000000000007777700008FFFFFFFFFFFFF07777700008FFF
- FFFFFFFFFF07777700008FF7777777731117777700008FFFFFFFFF39DD117777
- 00008FFFFFFFFF9D9DD1177700008FF77777FFD9F9DD107700008FFFFFFFFF9D
- FD9D020700008FFFFFFFFFF9DFD0202000008FF77777777F9D0B220200008FFF
- FFFFFFFFF0BBB22000008FFF0FFFFFFFFF0BBB2200008FF0B0FFFFFFFF00BBB2
- 00008F0B8B0FFFFFFF070BBB00008FF0B0FFFFFFFF0770BB00008FFF0FFFFFFF
- FF07770B00008FFFFFFFFFFFFF07777000008888888888888807777700007777
- 77777777777777770000}
- ParentShowHint = False
- ShowHint = True
- OnClick = SpeedButton3Click
- end
- object SpeedButton4: TSpeedButton
- Left = 1
- Top = 1
- Width = 25
- Height = 25
- Hint = 'List Processes'
- Glyph.Data = {
- 66010000424D6601000000000000760000002800000014000000140000000100
- 040000000000F000000000000000000000000000000000000000000000000000
- 80000080000000808000800000008000800080800000C0C0C000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777800087
- 77800087000077777808F7087808F70800007777708FFF70708FFF7000007777
- 70FFFFF070FFFFF000007807708FFF70008FFF70000070770008F8000808F808
- 0000707707800087078000870000780087777777800877770000777770007777
- 7777777700007770600600777077777700007700EEFE60777807777700007700
- 006F0007770077770000770FFF0EF607770B077700007766006F00070000B077
- 00007776EEEE60770BBBBB07000077766E06007770FB00000000777776667777
- 70BFB0770000777777777777770BFB070000777777777777770FBFB000007777
- 77777777778000000000}
- ParentShowHint = False
- ShowHint = True
- OnClick = SpeedButton4Click
- end
- object Image1: TImage
- Left = 31
- Top = 5
- Width = 33
- Height = 17
- Picture.Data = {<image001.bmp>}
- end
- object SpeedButton2: TSpeedButton
- Left = 94
- Top = 1
- Width = 25
- Height = 25
- Hint = 'Refresh PIDs'
- Glyph.Data = {
- 66010000424D6601000000000000760000002800000014000000140000000100
- 040000000000F000000000000000000000000000000000000000000000000000
- 80000080000000808000800000008000800080800000C0C0C000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
- 7777777700000000000000000007777700008FFFFFFFFFFFFF07777700008FFF
- FFFFFFFFFF07777700008FF777FF7F8FFF07777700008FFFFFF8FF8FFF077777
- 00008FFFFFFF8F8FF807777700008FF77FFFFFFF8F07777700008FFFFF88FF0F
- FF07777700008FFFFFFFF0F0FF07777700008FF77FF8F8FF0F07777700008FFF
- FF8FFF8FE007777700008FFF0FFFFFF8EE07777700008FF0B0FFF8FF8EE07777
- 00008F0B8B0F8FFFF8EE077700008FF0B0FFFFFFFF8EE07700008FFF0FFFFFFF
- FF08EE0700008FFFFFFFFFFFFF078EE00000888888888888880778E000007777
- 77777777777777870000}
- ParentShowHint = False
- ShowHint = True
- OnClick = SpeedButton2Click
- end
- object SpeedButton1: TSpeedButton
- Left = 119
- Top = 1
- Width = 25
- Height = 25
- Hint = 'Kill Selected PID'
- Glyph.Data = {
- 66010000424D6601000000000000760000002800000014000000140000000100
- 040000000000F000000000000000000000000000000000000000000000000000
- 80000080000000808000800000008000800080800000C0C0C000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
- 77777777000077700077777777777777000070600600778888887777000000EE
- FE60700000087777000000006F0000FFF708877700000FFF0EF607FFFF708777
- 000066006F000FFFFFF08877000076EEEE60FFFFFFFF08870000766E0600FFFF
- 7FFFF087000077766678FFFFF77FF088000077777770F8FFFFF7FF0800007799
- 9770F0F8F8F8FF08000077997770F0F0F0F0FF08000077979770F0F0F0F00F08
- 000097777970F0F0F0F08087000097777970F0F0F0F0777700007979777800F0
- F0F0777700007799777780F0F00877770000799977777800F087777700007777
- 77777778087777770000}
- ParentShowHint = False
- ShowHint = True
- OnClick = SpeedButton1Click
- end
- end
- object StatusBar1: TStatusBar
- Left = 0
- Top = 398
- Width = 563
- Height = 25
- Panels = <>
- SimplePanel = True
- end
- object ListBox1: TListBox
- Left = 8
- Top = 56
- Width = 545
- Height = 289
- Enabled = False
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlue
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ItemHeight = 13
- ParentFont = False
- TabOrder = 3
- TabWidth = 125
- OnClick = ListBox1Click
- end
- object MainMenu1: TMainMenu
- Left = 524
- Top = 358
- object File1: TMenuItem
- Caption = '&File'
- ShortCut = 0
- object New1: TMenuItem
- Caption = '&List Pids...'
- ShortCut = 0
- OnClick = New1Click
- end
- object Refresh1: TMenuItem
- Caption = '&Refresh List'
- ShortCut = 0
- OnClick = Refresh1Click
- end
- object N1: TMenuItem
- Caption = '-'
- ShortCut = 0
- end
- object Exit1: TMenuItem
- Caption = 'E&xit'
- ShortCut = 0
- OnClick = Exit1Click
- end
- end
- object Help1: TMenuItem
- Caption = '&Help'
- ShortCut = 0
- object About1: TMenuItem
- Caption = '&About...'
- ShortCut = 0
- OnClick = About1Click
- end
- end
- end
- object Timer1: TTimer
- Interval = 200
- OnTimer = Timer1Timer
- Left = 493
- Top = 358
- end
- end
-